home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMM / DTR / DTR.PAS < prev    next >
Pascal/Delphi Source File  |  1992-07-04  |  894b  |  33 lines
  1. Uses DTRCTRL;
  2. Var
  3.    COMPort              : Byte;
  4.    Error                : Integer;
  5.    State                : String;
  6.  
  7. Begin
  8.  
  9.      State := ParamStr (2);
  10.  
  11.      WriteLn ('DTR Control utility');
  12.      WriteLn ('Les Logiciels de Marque inc.');
  13.      WriteLn;
  14.  
  15.      Val (ParamStr (1), COMPort, Error);
  16.      If (COMPort < 1) or (COMPOrt > 4) or ((UpCase (State [1]) <> 'D') And (UpCase (State [1]) <> 'R')) Then Begin
  17.         WriteLn ('  * Usage:');
  18.         WriteLn ('      DTR [Port] [D/R]');
  19.         WriteLn ('          D = Drop DTR');
  20.         WriteLn ('          R = Raise DTR');
  21.         Halt;
  22.         End;
  23.  
  24.      If UpCase (State [1]) = 'D' Then Begin
  25.         DTRControl (COMPort, False);
  26.         WriteLn ('   * DTR is now OFF');
  27.         End else Begin
  28.             DTRControl (COMPort, True);
  29.             WriteLn ('   * DTR is now ON');
  30.             End;
  31.  
  32.      End.
  33.